home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor1 / toasc.cc < prev    next >
Text File  |  1991-01-29  |  1KB  |  41 lines
  1. 00070 A.A = size-1
  2. 00079 start object phase
  3. 00080 D (characters per line) = 64
  4. 00083 B.A = size-1
  5. 00085 A.A = adr of alloc str
  6. 00088 D0 = adr of alloc str
  7. 0008B D0 = adr of alloc str data
  8. 0008E point to checksum on stack
  9. 00091 C.A = adr of checksum
  10. 00094 save adr of checksum
  11. 00096 point to orig object
  12. 00099 A.A = adr of orig object
  13. 0009C D1 = adr of orig object
  14. 0009F A.S = first nibble of object
  15. 000A3 C.S = first nibble of object
  16. 000A6 modify A.A's copy of data
  17. 000A9 and try to update memory
  18. 000AD fetch nibble back
  19. 000B1 go if RAM (changed)
  20. 000BD fix RAM (replace orig nibble)
  21. 000C1 count character in line
  22. 000C4 go if not EOL
  23. 000C7 reset D for new line (D=63)
  24. 000CB ...
  25. 000D2 append line feed
  26. 000D5 ...
  27. 000D8 convert nibble to character
  28. 000FF store character into string
  29. 00102 next character
  30. 00105 next nibble
  31. 00108 decr nibbles remaining
  32. 0010A go if more
  33. 0010D exit if checksum in progress
  34. 00112 start checksum phase
  35. 00115 B.A = 3 (size of checksum - 1)
  36. 0011C ...
  37. 0011E C = adr of checksum
  38. 00120 D1 = adr of checksum
  39. 00123 D1 = adr of checksum data
  40. 00126 go process checksum
  41.